home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / sezyou.zip / SDEMO.PRG < prev    next >
Text File  |  1993-01-04  |  6KB  |  185 lines
  1. * sdemo.prg 05/09/89 11:25pm
  2. * demonstration clipper-code program to show demo version of SEZ_YOU!
  3. * (c) 1989 SoundView Data Systems / all rights reserved
  4.  
  5. * link with getdemo.obj and use clipper.lib and extend.lib
  6.  
  7. set color to w+/b
  8. clear
  9. set confirm off
  10. set scoreboard off
  11. set cursor off
  12. @ 4,10,20,70 box "┌─┐│┘─└│ "
  13. @ 6,11 say "───────────────────────────────────────────────────────────"
  14. set color to g+/b
  15. @ 5,27 say " SEZ_YOU! DEMONSTRATION "
  16. set color to b/w
  17.  
  18. *---screen1
  19. @ 7,11 clear to 19,69
  20. scrlup("This short Clipper-compiled program will demonstrate")
  21. scrlup("the ability of SEZ_YOU! to alter the internal default")
  22. scrlup("values of the environmental parameters as well as the")
  23. scrlup("implantation and retrieval of a hidden identification")
  24. scrlup("string in the target .exe file.")
  25. scrlup("")
  26. scrlup("The DEMONSTRATION version of SEZ_YOU! (...says Who?)")
  27. scrlup('is limited to modification of the "X" and "R" values')
  28. scrlup("only, and the identification-code (if requested) is ")
  29. scrlup('hard-coded for "DEMO_01" regardless of the code')
  30. scrlup('specified on the command line as the "I" parameter.')
  31. getkey()
  32.  
  33. *---screen2
  34. scrlup("")
  35. scrlup("")
  36. scrlup("")
  37. scrlup("Please wait, while excess available memory is used")
  38. scrlup("up, to simulate a real application:")
  39. scrlup("")
  40. scrlup("")
  41. scrlup("")
  42. scrlup("")
  43. scrlup("")
  44. scrlup("")
  45. scrlup("")
  46. declare memHog[200]
  47. i = 1
  48.        do while ( memory( 0 ) > 8 .and. i < 200 )
  49.                memHog[i] = space(4000)
  50.                i = i + 1
  51.                @ 13,32 say replicate(".",mod(i,18)) + space(17)
  52.        enddo
  53. getkey()
  54.  
  55. *---screen3
  56. @ 8,13 clear to 18,67
  57. scrlup("We will now try to demonstrate modifying the R and")
  58. scrlup("X parameters. First determine the minimum values")
  59. scrlup("that permit RUNning this demo program, by trying")
  60. scrlup("different values in a SET CLIPPER= statement. Then")
  61. scrlup("use SEZ_YOU! to preset the same R or X values in")
  62. scrlup("this (SDEMO.EXE) file, using the command:")
  63. scrlup("")
  64. scrlup("   SYDEMO SDEMO.EXE Rxxx [Xxxx] [Iserial_#]")
  65. scrlup("")
  66. scrlup('Remember to first issue a "SET CLIPPER=" to prevent ')
  67. scrlup("the new internal defaults from being overridden.")
  68. getkey()
  69.  
  70. *---screen4
  71. @ 8,13 clear to 18,67
  72. scrlup("At the next keypress, this demonstration program")
  73. scrlup("will try to RUN SEZ_YOU!. This will require about")
  74. scrlup("35K of free memory for the program and its buffers.")
  75. scrlup("")
  76. scrlup('Try using SEZ_YOU! on this demonstration .exe file,')
  77. scrlup("to see that the internal patches behave in the same")
  78. scrlup("manner as a SET CLIPPER= environmental would. Too ")
  79. scrlup("small an R-value will prevent RUNning this program.")
  80. scrlup("")
  81. scrlup("Press any key now, to RUN SEZ_YOU!...")
  82. scrlup("")
  83. getkey()
  84. scrnmem = savescreen(0,0,24,79)
  85. set color to w/n
  86. clear
  87. ! sydemo
  88. set color to w+/n
  89. ? " Press any key to continue "
  90. inkey(0)
  91. restscreen(0,0,24,79,scrnmem)
  92. set color to b/w
  93.  
  94. *---screen5
  95. @ 8,13 clear to 18,67
  96. scrlup("This demonstration program has been functioning")
  97. scrlup("with the following environmental values (loaded by")
  98. scrlup("default, by SEZ_YOU!, or from the environment).")
  99. scrlup("────────────────────────┬──────────────────────────")
  100. scrlup("V =                     │  Identification code:")
  101. scrlup("R =      ║ -1 = true 0  │")
  102. scrlup("E =      ║ 0 = default  ├──────────────────────────")
  103. scrlup("X =                     │  Environmental string:")
  104. scrlup("F =                     │")
  105. scrlup("S =                     └──────────────────────────")
  106. scrlup("(The demo version only returns the X and R values.)")
  107.  
  108. *@ 12,20 say ltrim(str(getenv("v")))
  109. @ 13,20 say ltrim(str(getenv("r")))
  110. *@ 14,20 say ltrim(str(getenv("e")))
  111. @ 15,20 say ltrim(str(getenv("x")))
  112. *@ 16,20 say ltrim(str(getenv("f")))
  113. *@ 17,20 say ltrim(str(getenv("s")))
  114. @ 13,48 say get_id()
  115. @ 16,48 say get_ename()
  116. getkey()
  117.  
  118. *---screen6
  119. @ 8,14 clear to 18,66
  120. scrlup("Of course, the full version of SEZ_YOU! can also")
  121. scrlup("alter the V,E,F and S variables, and allows you to")
  122. scrlup("specify the identification code and the name of the")
  123. scrlup("environmental SET string.")
  124. scrlup("")
  125. scrlup("Additionally, functions are supplied that can")
  126. scrlup("retrieve the environmental values and string name for")
  127. scrlup("testing and error-routines, and the identification")
  128. scrlup("code for display on title screens and reports. (The")
  129. scrlup('demo can only implant the code "DEMO_01", however.)')
  130. scrlup("")
  131. getkey()
  132.  
  133. *---screen7
  134. @ 8,14 clear to 18,66
  135. scrlup("SEZ_YOU! costs $49.00 (plus $5.00 S/H) and has a")
  136. scrlup("30 day money-back guarantee if it fails to perform")
  137. scrlup("as described. It is available from:")
  138. scrlup("")
  139. set color to r/w
  140. scrlup("            PROGRAMMING SOLUTIONS")
  141. scrlup("            5320 South 900 East, Suite 100")
  142. scrlup("            Salt Lake City, Utah  84117")
  143. scrlup("            801/262-4141 (voice)")
  144. set color to b/w
  145. scrlup("")
  146. scrlup("     Support is by mail, telephone, and Email")
  147. scrlup("")
  148. @ 23,0 say ""
  149. set cursor on
  150. set color to
  151. quit
  152.  
  153. *******************************
  154. * Function: scrlup()
  155. * Notes: for sdemo.prg
  156. *        scrolls up window after brief delay, then prints text at bottom line
  157. function scrlup
  158. para mtext
  159.  
  160. for delay = 1 to 70
  161. next
  162. scroll(8,11,18,69,1)    && roll it up one
  163. @ 18,14 say mtext
  164. return ""
  165.  
  166. *******************************
  167. * Function: getkey()
  168. * Notes: for sdemo.prg
  169. *        waits for inkey(0), prints and clears prompt
  170. function getkey
  171.  
  172. set color to w+/b
  173. @20,27 say " Press any key to continue "
  174. inkey(0)
  175. @20,27 say "───────────────────────────"
  176. set color to b/w
  177. return ""
  178.  
  179.  
  180.  
  181.  
  182. *eof sdemo.prg
  183.  
  184.  
  185.